﻿<!-- #include file="mymin.asp" -->
<%
Call Head2()
w "<title>评论删除</title></head><body><div class='main400'>"

dim id
id=request.querystring("id")
if id="" or Isnumeric(id)=false then Call Error2("ID无效！")

Dim rs
set rs=server.createobject("adodb.recordset")
rs.open "Select smsid from 74hu_pl where id="&id ,myconn,2,3
if rs.eof then
	w "ID无效！"
else
	smsid=rs("Smsid")
	rs.delete
	myconn.execute ("update 74hu_article set smspin=smspin-1 where id="&smsid)

	w "评论删除成功!"
end if
rs.close
set rs=nothing
%><br/>----------<br/><a href="adminpl.asp?sid=<%=sid%>">[评论管理]</a><%call Last2%>